home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok65 / makecpicscreen / cpictest.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  59 lines
  1. (* --------------------------------------------------------------------------
  2.  
  3. :Program.    CPicTest
  4. :Contents.   Testprogram using the MakeCPicScreen- Module
  5. :Author.     Steffen Köhler
  6. :Address.    Breite Str. 1 2880 Brake, Germany
  7. :Phone.      04401/70164
  8. :Copyright.  This Routine based on the Shareware-Routines by
  9.              Thomas Zipproth
  10.              Dr. Jochner Weg 10, 8948 Mindelheim, Germany
  11.              08261/4838
  12.              (see the CPic.doc on AMOK#42 for more Informations)
  13. :Language.   Modula2 + Assembler
  14. :Translator. M2-Amiga A+L V3.32d
  15. :History.    V1.0 29-Dec-90
  16.  
  17. -------------------------------------------------------------------------- *)
  18. MODULE CPicTest;
  19.  
  20. FROM Arts       IMPORT TermProcedure;
  21. FROM Intuition  IMPORT CloseScreen,ScreenPtr;
  22. FROM Dos        IMPORT Delay;
  23. FROM AMOK       IMPORT Bild; (* Amok- Bild von AMOK#13 *)
  24. FROM CPicScreen IMPORT MakeCPicScreen,Cle,ci,Refresh;
  25. FROM SYSTEM     IMPORT ADR;
  26. FROM InOut      IMPORT Read,WriteString,WriteLn,WriteInt;
  27. FROM Graphics   IMPORT Move,ClearScreen;
  28.  
  29. VAR
  30.    MyScreen : ScreenPtr;
  31.    a :CHAR;
  32.  
  33. PROCEDURE Ende;
  34. BEGIN
  35.    IF MyScreen#NIL THEN
  36.       CloseScreen(MyScreen);
  37.    END;
  38. END Ende;
  39.  
  40. BEGIN
  41.    TermProcedure(Ende);
  42.    WriteString("Beenden mit RETURN");
  43.    WriteLn;
  44.    IF NOT MakeCPicScreen(ADR(Bild),NIL,MyScreen,0,0,TRUE) THEN
  45.       WriteString("Konnte Screen nicht öffnen- Fehler:");
  46.       WriteInt(Cle,8);
  47.       WriteLn;
  48.    ELSE
  49.       Move(ADR(MyScreen^.rastPort),0,0);
  50.       ClearScreen(ADR(MyScreen^.rastPort));
  51.       IF NOT Refresh(ADR(Bild),MyScreen,ci) THEN
  52.          WriteString("Konnte Screen nicht erneuern- Fehler:");
  53.          WriteInt(Cle,8);
  54.          WriteLn;
  55.       END;
  56.    END;
  57.    Read(a);
  58. END CPicTest.
  59.